home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
comm2
/
mmsndm61.lha
/
MM
/
Rexx
/
MM_SetLogPre.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-04
|
690b
|
42 lines
/* 04.03.96 RH */
parse arg mode pfx
mode = upper(mode)
pfx = compress(strip(pfx), '"')
clip = 'MM_LogPre'
select
when mode='' then say 'The current prefix is "'getclip(clip)'".'
when mode='ADD' then call Set_Pfx(getclip(clip) || pfx)
when mode='RESET' then call Set_Pfx()
when mode='SHOW' then say getclip(clip)
when mode='SET' then call Set_Pfx(pfx)
otherwise
do
if mode~='?' then say '*** Unknown mode "'mode'"! ***'
say
say ' Usage: [RX] MM_SetLogPre[.rexx] ADD/K,SET/K,RESET/S,SHOW/S'
say
exit 10
end
end
exit 0
Set_Pfx: procedure Expose clip
parse arg pfx
call setclip(clip, pfx)
say 'The prefix was set to "'getclip(clip)'".'
return